home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_121_(06-1985).d64 / personal account (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  13KB  |  434 lines
  1. 1 GOTO910
  2. 2 REM ** ML STOP KEY DISABLE **
  3. 3 PRINT"x[169]=[141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
  4. 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111"
  5. 5 [153]"hhhhhhh`1"
  6. 6 [143] ** 4 - POP ML SUBROUTINE **
  7. 10 [143] **GENERAL INPUT ROUTINE **
  8. 15 :
  9. 30 :
  10. 35 [143] +++ INPUT SECTION +++
  11. 40 [151]UO,0:UR$[178]"":UI$[178]""
  12. 42 [139]UL[178]0[167]UL[178]80
  13. 45 [151]UC,0
  14. 50 [161]UI$:[139]UI$[178]""[167]50
  15. 55 [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85
  16. 60 [139]UI$[178][199](20)[167]105
  17. 62 [139] [195](UR$)[178][177]UL[167]50
  18. 65 [141]120:[143] CHECK FOR VALID CHARACTER
  19. 70 UR$[178]UR$[170]UI$
  20. 75 [153]UI$;
  21. 80 [137]50
  22. 85 [143] +++ CHECK FOR HELP REQUEST +++
  23. 90 [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE
  24. 95 [139]UF[178]1[167][141]240
  25. 100 UF[178]0:[153]:[142]
  26. 102 [143] ++ CHECK DELETE ++
  27. 105 [139][195](UR$)[179]1[167]50
  28. 110 UR$[178][200](UR$,[195](UR$)[171]1)
  29. 115 [153]"CMD  CMDCMD";:[137]50
  30. 120 [143] ++ CHECK FOR VALID CHARACTERS ++
  31. 121 [139]UI$[178]UX$[167][142]
  32. 125 [139][195](US$)[178]0[167]150
  33. 130 [129]US[178]1[164][195](US$)
  34. 135 [139]UI$[178][202](US$,US,1)[167][142]
  35. 140 [130]
  36. 145 UI$[178]"":[142]
  37. 150 [143] ** STANDARD INPUT **
  38. 152 [139][198](UI$)[178]46[167][142]
  39. 155 [139]UI$[178][199](32)[167][142]
  40. 160 [139][198](UI$)[179]48[176][198](UI$)[177]57[167]170
  41. 165 [142]
  42. 170 [139][198](UI$)[179]65[176][198](UI$)[177]90[167]180
  43. 175 [142]
  44. 180 [139][198](UI$)[179]193[176][198](UI$)[177]218[167]UI$[178]"":[142]
  45. 185 [139][194](UT)[178]UU%[167]UI$[178][199]([198](UI$)[171]128):[142]
  46. 187 [142]
  47. 190 UI$[178]"":[142]
  48. 195 UF[178]1:[143] +++ HELP ROUTINE EXIT +++
  49. 197 [141]250
  50. 200 [141]245
  51. 205 [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2)
  52. 210 UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD"
  53. 215 UZ[178]1:UV%[178][194](UT)
  54. 216 [137]300
  55. 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
  56. 220 UT$[178]UL$:[153]"LOAD";:[151]UT,UV%:[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3)
  57. 225 [151]UQ,UQ%(UQ[171]UB):[130]
  58. 230 [151]U1,U1%
  59. 232 [151]U2,U2%
  60. 233 [151]U4,U4%
  61. 234 [151]U3,U3%[171]1
  62. 235 [137]35
  63. 240 UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142]
  64. 245 [153][200](UD$,24);"                       HELP COMING WAIT  ":[142]
  65. 250 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
  66. 251 UJ$[178]US$:UK$[178]UG$:UL$[178]UT$:UJ[178]UP:UK[178]UL
  67. 255 [142]
  68. 300 [143] ** MENU **
  69. 301 :
  70. 302 [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8
  71. 303 :
  72. 305 [153]"                MENU"
  73. 310 [153]" --------------------------------------"
  74. 315 [153]"       1.   BEGIN BUDGET ACCOUNT
  75. 320 PRINT"       2.   USER INSTRUCTIONS"
  76. 325 PRINT"       3.   ADDED INSTRUCTIONS"
  77. 335 PRINT"       4.   QUIT"
  78. 340 PRINT" --------------------------------------"
  79. 345 PRINT"       PRESS A NUMBER KEY (1-4) ";
  80. 350 UL=1:US$="1234":GOSUB35:REM INPUT ROUTINE
  81. 352 US$=""
  82. 355 ONVAL(UR$)GOSUB1000,400,500,396
  83. 360 GOTO300
  84. 395 REM ** RE-ENABLE STOP KEY AND END **
  85. 396 IFPEEK(50003)<>1ANDPEEK(50003)<>160ANDPEEK(50003)<>0THEN399
  86. 397 SYSUU+71:IFPEEK(50003)=0THENPOKE53281,6:POKE53280,14
  87. 398 PRINT"[154][147]":GOTO61100
  88. 399 GOSUB875:RETURN
  89. 400 REM ** USER INSTRUCTIONS **
  90. 405 PRINT"[147]":POKEUT,UL%:IFPEEK(50003)=0THENPOKE53281,0:POKE53280,0
  91. 410 UP=0:GOSUB850:PRINT"  [212]HIS PROGRAM WILL HELP THE USER TO"
  92. 412 PRINT" KEEP SOME ACCOUNTING RECORDS IN ORDER.
  93. 414 [153]" (null)OU CAN THEN KEEP THE RECORDS ON
  94. 416 PRINT" DISKETTE FOR A MORE PERMANENT RECORD."
  95. 418 PRINT" [217]OU CAN THEN UPDATE THESE AS THE "
  96. 420 PRINT" NEED ARISES.
  97. 422 [153]" RIGHT$F A 'CR' OCCURS AFTER AN AMOUNT IT
  98. 424 PRINT" MEANS THAT YOU ARE NO LONGER MAKING
  99. 426 [153]" BUT OWING MONEY.
  100. 430 GOSUB835:GOSUB850
  101. 432 PRINT" [197]NTERING '/*' WILL DESIGNATE THAT YOU
  102. 434 [153]" HAVE FINISHED ENTERING THE AMOUNTS AND
  103. 436 PRINT" WISH TO GO BACK TO PICK ANOTHER OPTION.
  104. 485 [141]835
  105. 490 [139]UZ[178]1[167][158]UP%:[137]217
  106. 499 [142]
  107. 500 [143] ** ADDED INSTRUCTIONS **
  108. 501 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,2:[151]53280,10
  109. 502 UP[178]0:UG$[178]"(null)EACHER RIGHT$NST":[141]850
  110. 503 [153]"      (null)O THE BEST OF OUR KNOWLEDGE,"
  111. 504 [153]"   THIS PROGRAM IS IN THE PUBLIC"
  112. 505 [153]"   DOMAIN."
  113. 506 [153]""
  114. 507 [153]"         CHR$REEN (null)ALLEY (null)UBLISHING RIGHT$NC."
  115. 508 [153]"         7124 (null)HADY (null)AK (null)OAD"
  116. 509 [153]"         VALDEN (null)RARIE, (null)(null)  55344"
  117. 512 UP[178]1:[141] 835:[141] 850:
  118. 513 [153]"     (null)ROGRAM (null)AME: PEEKUDGET ATNCCOUNT
  119. 514 PRINT"     [215]RITTEN [194]Y  : [213]NKNOWN
  120. 515 [153]"     (null)PGRADED PEEKY :(null)ERNA MID$ONES
  121. 516 PRINT"     [212]HIS PROGRAM WILL RUN ON ANY
  122. 520 [153]"         LEN(null)(null)(null)(null)STR$(null)(null)VAL 64 LEN(null)(null)(null)(null)(null)VAL(null)
  123. 521 GOSUB835
  124. 590 IFUZ=1THENSYSUP%:GOTO217
  125. 599 RETURN
  126. 600 REM ** PROGRAM MODIFICATION INST **
  127. 601 PRINT"[147]":POKEUT,UL%
  128. 605 UP=0:UG$="[208]ROGRAM [205]OD":GOSUB850
  129. 660 GOSUB835
  130. 690 IFUZ=1THENSYSUP%:GOTO217
  131. 699 RETURN
  132. 700 REM ** TO USE 8032 LOAD CBM4032 **
  133. 710 PRINT"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032  
  134. 720 [153]"      LOAD THE 'CBM 4032' PROGRAM"
  135. 730 [158]UU[170]71
  136. 740 [128]
  137. 800 [143] ** T I T L E   P A G E **
  138. 802 [153]"LOAD";:[151]UT,UU%:[139][194](50003)[178]0[167][151]53280,14:[151]53281,6
  139. 804 [129]I[178]1[164]38:[153]"SPC(WAIT";:[130]
  140. 806 [129]I[178]1[164]22:[153]"CMDSPC(WAIT";:[130]
  141. 808 [129]I[178]1[164]37:[153]"CMDCMDSPC(WAIT";:[130]
  142. 810 [129]I[178]1[164]22:[153]"ONCMDSPC(WAIT";:[130]
  143. 812 [153]"PERSONAL ACCOUNTANT"
  144. 814 [153]"USE IN YOUR HOME OR IN BUSINESS"
  145. 816 [153]"TO KEEP ALL OF YOUR ACCOUNTS UP"
  146. 818 [153]"TO DATE.HAS UNLIMITED AMOUNT OF"
  147. 820 [153]"CATEGORIES TO WORK WITH.YOU GIVE "
  148. 822 [153]"IT A LABEL AND PROCEED FROM THERE."
  149. 824 [153]"ALL FILES MAY BE SAVED TO A "
  150. 825 [153]"FORMATTED DISK.
  151. 826 REM ** COMMODORE LOGO **
  152. 827 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]":I=0
  153. 828 GETA$:IFA$<>" "THENI=I+1:IFI<1000THEN828
  154. 830 T1$="":T2$="":T3$="":T4$="":I=0
  155. 832 GOTO300
  156. 835 REM ** SPACE BAR PRESS **
  157. 840 POKEUO,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]"
  158. 844 GETUI$:IFUI$<>" "THEN844
  159. 846 RETURN
  160. 850 REM ** PAGE DESIGN ROUTINE **
  161. 852 UP=UP+1
  162. 855 PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  163. 860 PRINT" --------------------------------------"
  164. 864 IFUH<>0THEN870
  165. 865 REM PRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS   H <RETURN>"
  166. 870 UH=0:PRINT"":RETURN
  167. 875 REM ** PLEASE WAIT REMARK **
  168. 880 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     ":PRINT""
  169. 885 RETURN
  170. 900 REM ** SET UP VARIABLES **
  171. 901 UX$="H":DIMUQ%(1000):UB=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UU=1024
  172. 902 UT=59468:UU%=12:UL%=14:UP%=1146:UM=32768:UO=158:POKE 50003,0
  173. 903 IFPEEK(50003)=0THENUB=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UU=2048
  174. 904 IFPEEK(50003)=0THENUT=53272:UU%=21:UL%=23:UP%=2139:UM=1024:UO=198
  175. 905 UD$=""
  176. 906 UP$="                                       "
  177. 907 UT$=" [194]UDGET [193]CCOUNT[160][160][160][160]":REM PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***
  178. 908 DIMAC(20),AC$(20),BU(20),EX(20),CO(20),BA(20):RETURN
  179. 910 REM ** SET VARIABLES **
  180. 915 GOSUB900
  181. 920 REM ** CHECK FOR 8032 **
  182. 925 PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
  183. 930 IFPEEK(UB+40)<>96THENGOSUB700
  184. 931 REM ** MEMORY CHECK **
  185. 932 IF FRE(0)>2000THEN937
  186. 933 PRINT"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
  187. 934 PRINT"MEMORY TO RUN THIS PROGRAM !"
  188. 935 SYSUU+71
  189. 936 END
  190. 937 PRINT"[147]":IFPEEK(50003)=0THEN962
  191. 940 REM ** BASIC 2.0  OR  4.0  OR  C-64 SETUP **
  192. 941 POKE1075,133:POKE1076,144:POKE1077,234:POKE1079,4:POKE1080,133:POKE1081,145
  193. 942 POKE1091,155:POKE1098,133:POKE1099,144:POKE1100,234:POKE1103,133
  194. 943 POKE1104,145:POKE1105,234:POKE1082,234
  195. 945 IFPEEK(50003)<>160THEN955
  196. 950 POKE1093,88:POKE1094,228:POKE1097,85:POKE1102,228:GOTO965
  197. 955 IFPEEK(50003)<>1THEN990
  198. 960 POKE1093,49:POKE1094,230:POKE1097,46:POKE1102,230:GOTO965
  199. 962 POKE2099,141:POKE2100,20:POKE2101,3:POKE2103,8:POKE2104,141:POKE2105,21
  200. 963 POKE2106,3:POKE2115,145:POKE2117,52:POKE2118,234:POKE2121,49:POKE2122,141
  201. 964 POKE2123,20:POKE2124,3:POKE2126,234:POKE2127,141:POKE2128,21:POKE2129,3
  202. 965 SYSUU+48:REM DISABLE STOP KEY
  203. 970 GOSUB800:REM TITLE
  204. 980 GOTO300:REM MENU
  205. 990 PRINT"[147]THE PGM WILL NOT WORK ON THIS MACHINE!":END
  206. 1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0:REM ** PROGRAM STARTS HERE **
  207. 1001 PRINT"[147]";:RESTORE:IFPEEK(50003)=0THENPOKE53281,6:POKE53280,14
  208. 1002 UG$=""
  209. 1010 POKEUT,UL%
  210. 1015 CLOSE15:OPEN15,8,15
  211. 1100 REM
  212. 1120 FORI=0TO15:AC(I)=0:AC$(I)="":BU(I)=0:EX(I)=0:CO(I)=0:BA(I)=0:NEXT
  213. 1130 NA=0:DN$="":FW=12:FD=2:FC=1:FS=2:W$="1234567890.-":W=9
  214. 1140 GOSUB2140:PRINT" [208]LEASE ENTER DATE: ";:US$="":UL=20:GOSUB35:DA$=UR$
  215. 1150 PRINT:GOSUB2170
  216. 1160 PRINT" [204]    [204]OAD DATA FROM DISK FILE
  217. 1170 [153]" LEN    LENREATE NEW FILE
  218. 1180 PRINT:PRINT" [208]LEASE MAKE SELECTION? ";:US$="LC[204][195]":UL=1:GOSUB35:R$=UR$
  219. 1210 IFR$="C"ORR$="[195]"THEN1300
  220. 1215 PRINT" [198]ILENAME: ";:UL=16:US$="":GOSUB35:
  221. 1230 GOSUB2140:PRINT"       [208]LACE DATA DISK IN DRIVE 1":GOSUB60000:PRINT"[147]";
  222. 1240 OPEN1,8,5,"0:"+UR$+",S,R":GOSUB7000
  223. 1250 PRINT:PRINT" [198]ILE LOCATED."
  224. 1260 INPUT#1,DN$,NA:GOSUB7000
  225. 1270 FORI=1TONA
  226. 1280 INPUT#1,AC(I),AC$(I),BU(I),EX(I),CO(I),BA(I)
  227. 1290 NEXT:CLOSE1:GOTO1310
  228. 1300 GOSUB2140:PRINT" [208]LEASE ENTER DEPARTMENT NAME":PRINT
  229. 1305 PRINT" ? ";:US$="":UL=20:GOSUB35:DN$=UR$
  230. 1310 GOSUB2140:GOSUB875:GOSUB1960:PRINT" [196]EPT: ";DN$
  231. 1320 PRINT" [206]O. OF ACCOUNTS: ";NA
  232. 1330 PRINT" [212]OTAL BUDGET:    ";TB$
  233. 1340 PRINT" [197]XPENDITURES:    ";TE$
  234. 1350 PRINT" [195]OMMITMENTS:     ";TC$
  235. 1360 PRINT" [198]UNDS AVAILABLE: ";NT$
  236. 1370 GOSUB2170
  237. 1380 PRINT" 1    [195]REATE ACCOUNT(S)
  238. 1390 [153]" 2    STR$ELETE AN ACCOUNT
  239. 1400 PRINT" 3    [205]AKE ENTRIES TO AN ACCOUNT
  240. 1410 [153]" 4    (null)IST ACCOUNTS ON SCREEN
  241. 1420 PRINT" 5    [204]IST ACCOUNTS ON PRINTER
  242. 1430 [153]" 6    LENREATE A DISK FILE
  243. 1440 PRINT" 7    [201]NITIALIZE PROGRAM
  244. 1445 [153]" 8    (null)UIT
  245. 1446 GOSUB61000
  246. 1450 PRINT:PRINT" [208]LEASE MAKE SELECTION? ";:US$="12345678":UL=1:GOSUB35
  247. 1480 SE=VAL(UR$):ONSEGOTO2260,2370,2500,2810,2830,3070,3140,300
  248. 1490 XX=ABS(VU):XL=INT(XX):XR=0:VU$=""
  249. 1500 IFFD>0THENXR=INT((XX-INT(XX))*10^FD)
  250. 1510 XR$=STR$(XR):XR$=RIGHT$(XR$,LEN(XR$)-1):RL=LEN(XR$)
  251. 1520 IFRL=FDTHEN1540
  252. 1530 FORXY=1TOFD-RL:XR$="0"+XR$:NEXT:RL=FD
  253. 1540 XL$=STR$(XL):XL$=RIGHT$(XL$,LEN(XL$)-1):LL=LEN(XL$):SV=LL
  254. 1550 IFFC<>1THEN1660
  255. 1560 XZ=LL-INT(LL/3)*3:XZ=3-XZ:NC=0
  256. 1570 IFXZ=3THEN1590
  257. 1580 FORXY=1TOXZ:XL$="0"+XL$:NEXT:LL=LEN(XL$)
  258. 1590 FORXZ=1TOLLSTEP3
  259. 1600 IFXZ=1THEN1620
  260. 1610 VU$=VU$+",":NC=NC+1
  261. 1620 VU$=VU$+MID$(XL$,XZ,3)
  262. 1630 NEXT
  263. 1640 IFSV<>LLTHENVU$=RIGHT$(VU$,SV+NC)
  264. 1650 GOTO1670
  265. 1660 VU$=XL$
  266. 1670 IFFD>=0THENVU$=VU$+"."
  267. 1680 IFFD>0THENVU$=VU$+XR$
  268. 1690 IFSGN(VU)>=0THEN1740
  269. 1700 IFFS=1THENVU$=VU$+"-"
  270. 1710 IFFS=2THENVU$=VU$+"CR"
  271. 1720 IFFS=3THENVU$=VU$+"DB"
  272. 1730 GOTO1770
  273. 1740 IFFS=1THENVU$=VU$+" "
  274. 1750 IFFS=2THENVU$=VU$+"  "
  275. 1760 IFFS=3THENVU$=VU$+"  "
  276. 1770 VL=LEN(VU$)
  277. 1780 IFFW>0THEN1810
  278. 1790 IFFM=1ORFM=2THENVU$="$"+VU$
  279. 1800 RETURN
  280. 1810 IFFW>=VLTHEN1830
  281. 1820 VU$="":FORXZ=1TOFW:VU$=VU$+"*":NEXT:RETURN
  282. 1830 IFFW>VLTHEN1860
  283. 1840 IFFM>0THEN1820
  284. 1850 RETURN
  285. 1860 FL=FW-VL
  286. 1870 FORXZ=1TOFL
  287. 1880 IFXZ<>1THEN1910
  288. 1890 IFFM<>1THEN1910
  289. 1900 VU$="$"+VU$:GOTO1940
  290. 1910 IFFP<>1THENVU$=" "+VU$
  291. 1920 IFFP=1THENVU$="*"+VU$
  292. 1930 IFXZ=FLANDFM=2THENVU$="$"+RIGHT$(VU$,LEN(VU$)-1)
  293. 1940 NEXT
  294. 1950 RETURN
  295. 1960 TB=0:TE=0:TC=0:NT=0:IFNA=0THEN1990
  296. 1970 FORI=1TONA:TB=TB+BU(I):TE=TE+EX(I):TC=TC+CO(I):NEXT
  297. 1980 NT=TB-TE-TC
  298. 1990 VU=TB:GOSUB1490:TB$=VU$
  299. 2000 VU=TE:GOSUB1490:TE$=VU$
  300. 2010 VU=TC:GOSUB1490:TC$=VU$
  301. 2020 VU=NT:GOSUB1490:NT$=VU$
  302. 2030 RETURN
  303. 2040 IF(CA<0)OR(CA>NA)THEN RETURN
  304. 2050 VU=BU(CA):GOSUB1490:BU$=VU$
  305. 2060 VU=EX(CA):GOSUB1490:EX$=VU$
  306. 2070 VU=CO(CA):GOSUB1490:CO$=VU$
  307. 2080 VU=BA(CA):GOSUB1490:BA$=VU$
  308. 2090 RETURN
  309. 2100 TX=TI
  310. 2110 IF(TI-TX)<6THEN2110
  311. 2120 REM
  312. 2130 RETURN
  313. 2140 UG$="[201]NFORMATION":UP=1:GOSUB850:RETURN
  314. 2170 PRINT:PRINT" [203]EY   [207]PTION"
  315. 2190 PRINT" [163][163][163]   [163][163][163][163][163][163]":RETURN
  316. 2200 PRINT" [193]CCT.  [206]AME
  317. 2210 [153]" TAB(TAB(TAB(TAB(   TAB(TAB(TAB(TAB(
  318. 2220 FORI=1TONA:PRINT" "AC(I);TAB(8);AC$(I):NEXT:PRINT:RETURN
  319. 2260 UG$="   [193]CCOUNT #":UP=0
  320. 2265 IFNA=15THEN1310
  321. 2266 GOSUB850
  322. 2270 PRINT" [193]CCOUNT # ? ";:US$=W$+"/*":UL=W:GOSUB35:R$=UR$:IFR$="/*"THEN1310
  323. 2280 IFNA=0THEN2310
  324. 2290 FORI=1TONA:IFVAL(R$)=AC(I)THENPRINT"[145]";:GOTO2270
  325. 2300 NEXT
  326. 2310 NA=NA+1:PRINT" [193]CCOUNT NAME? ";:US$="":UL=20:GOSUB35:AC$(NA)=UR$
  327. 2320 AC(NA)=VAL(R$)
  328. 2330 PRINT" [194]UDGET? ";:US$=W$:UL=W:GOSUB35:R$=UR$:BU(NA)=VAL(R$)
  329. 2340 PRINT" [197]XPENDITURES TO DATE? ";:US$=W$:UL=W:GOSUB35:R$=UR$:EX(NA)=VAL(R$)
  330. 2350 PRINT" [195]OMMITMENTS OUTSTANDING? ";:US$=W$:UL=W:GOSUB35:R$=UR$
  331. 2360 CO(NA)=VAL(UR$):BA(NA)=BU(NA)-EX(NA)-CO(NA):GOTO2265
  332. 2370 IFNA<=0THENPRINT"[145][145] ";:GOTO1450
  333. 2380 GOSUB2140:GOSUB2200
  334. 2390 PRINT" [197]NTER ACCT TO BE DELETED (/*=END)? ";:US$=W$+"/*":UL=W:GOSUB35
  335. 2395 R$=UR$:IFR$="/*"THEN1310
  336. 2400 DE=VAL(R$)
  337. 2410 FORI=1TONA:IFDE=AC(I)THEN2430
  338. 2420 NEXT:PRINT"[145][145]":GOTO2390
  339. 2430 PRINT:PRINTAC(I);AC$(I):PRINT" [195]ONFIRM? ";:US$="YN":UL=1:GOSUB35
  340. 2440 R$=UR$:IFR$<>"Y"THEN1310
  341. 2450 IFI=NATHEN2490
  342. 2460 FORJ=I+1TONA:BU(J-1)=BU(J):EX(J-1)=EX(J):CO(J-1)=CO(J):BA(J-1)=BA(J)
  343. 2470 AC(J-1)=AC(J):AC$(J-1)=AC$(J):NEXT
  344. 2480 BU(NA)=0:EX(NA)=0:CO(NA)=0:BA(NA)=0:AC$(NA)=""
  345. 2490 NA=NA-1:GOTO1310
  346. 2500 IFNA<=0THENPRINT"[145][145] ";:GOTO1450
  347. 2510 GOSUB2140:GOSUB2200
  348. 2520 PRINT" [197]NTER ACCOUNT TO BE MODIFIED (/*=END)":PRINT" ";:US$=W$+"/*":UL=W
  349. 2525 GOSUB35:R$=UR$:IFR$="/*"THEN1310
  350. 2530 MO=VAL(R$):FORI=1TONA:IFMO=AC(I)THEN2550
  351. 2540 NEXT:PRINT"[145][145][145]":GOTO2520
  352. 2550 CA=I:BA(CA)=BU(CA)-EX(CA)-CO(CA):GOSUB2140:GOSUB875:GOSUB2040:
  353. 2560 PRINT" [193]CCT #";AC(CA);" ";AC$(CA)
  354. 2570 PRINT" [194]UDGET          ";BU$
  355. 2580 PRINT" [197]XPENDITURES    ";EX$
  356. 2590 PRINT" [195]OMMITMENTS     ";CO$
  357. 2600 PRINT" [198]UNDS AVAILABLE ";BA$
  358. 2610 GOSUB2170
  359. 2620 PRINT" 1   [193]DJUST BUDGET
  360. 2630 [153]" 2   ATNDJUST EXPENSES
  361. 2640 PRINT" 3   [210]ECORD A COMMITMENT
  362. 2650 [153]" 4   LENANCEL A COMMITMENT
  363. 2660 PRINT" 5   [208]ROCESS A COMMITMENT
  364. 2670 [153]" 6   VALNTER AN EXPENSE
  365. 2680 PRINT" 7   [197]ND OF ENTRIES
  366. 2685 [141]61000
  367. 2690 [153]:[153]" (null)OUR SELECTION? ";:US$[178]"1234567":UL[178]1:[141]35:SE[178][197](UR$)
  368. 2720 [141]2140:[145] SE [137] 2730,2740,2750,2760,2780,2800,2510
  369. 2730 [153]" VALNTER NEW BUDGET AMOUNT? ";:US$[178]W$:UL[178]W:[141]35:BU(CA)[178][197](UR$):[137]2550
  370. 2740 [153]" VALNTER ADJUSTED TOTAL EXPENSE? ";:US$[178]W$:UL[178]W:[141]35
  371. 2745 EX(CA)[178][197](UR$):[137]2550
  372. 2750 [153]" VALNTER AMOUNT OF COMMITMENT? ";:US$[178]W$:UL[178]W:[141]35:X[178][197](UR$)
  373. 2755 CO(CA)[178]CO(CA)[170]X:[137]2550
  374. 2760 [153]" VALNTER AMOUNT TO BE CANCELLED? ";:US$[178]W$:UL[178]W:[141]35:X[178][197](UR$)
  375. 2765 [139]X[179][178]0[176]X[177]CO(CA)[167]2550
  376. 2770 CO(CA)[178]CO(CA)[171]X:[137]2550
  377. 2780 [153]" VALNTER AMOUNT TO BE PROCESSED? ";:US$[178]W$:UL[178]W:[141]35:X[178][197](UR$)
  378. 2785 [139]X[179][178]0[176]X[177]CO(CA)[167]2550
  379. 2790 CO(CA)[178]CO(CA)[171]X:EX(CA)[178]EX(CA)[170]X:[137]2550
  380. 2800 [153]" VALNTER AMOUNT OF EXPENSE? ";:US$[178]W$:UL[178]W:[141]35:X[178][197](UR$)
  381. 2805 EX(CA)[178]EX(CA)[170]X:[137]2550
  382. 2810 [141]2140:[153]"ON STR$EPT: ";DN$
  383. 2820 [153]" (null)UMMARY OF ACCOUNTS":[153]:[141]2200:[141]835:[137]1310
  384. 2830 [141]2140:[153]"CLOSE   (null)LEASE LINEUP FORMS ON PRINTER":[141]60000
  385. 2840 [159]5,4:[159]8,4,8:[152]8:[160]8
  386. 2850 [152]5," PEEKUDGET ACCOUNTING SYSTEM":[152]5
  387. 2860 [152]5," STR$EPT: ";DN$:[152]5
  388. 2870 [152]5," ATNS AT ";DA$:[152]5
  389. 2880 [141]1960
  390. 2890 [152]5," (null)OTAL BUDGET    ";TB$
  391. 2900 [152]5," VALXPENDITURES    ";TE$
  392. 2910 [152]5," LENOMMITMENTS     ";TC$
  393. 2920 [152]5," ASCUNDS AVAILABLE ";NT$
  394. 2930 [152]5:[152]5
  395. 2940 [152]5,"ATNCCT STR$ESCRIPTION                  PEEKUDGET ";
  396. 2950 [152]5,"VALXPENDITURES  LENOMMITMENTS      PEEKALANCE"
  397. 2960 [129]I[178]1[164]81:[152]5,"-";:[130]:[152]5
  398. 2970 [129]CA[178]1[164]NA:[141]2040
  399. 2980 L[178][195](AC$(CA)):[139]L[178][177]24[167]AC$(CA)[178][200](AC$(CA),24):[137]3000
  400. 2990 [129]I[178]1[164]24[171]L:AC$(CA)[178]AC$(CA)[170]" ":[130]
  401. 3000 [152]5,"" AC(CA);" ";AC$(CA);" ";BU$;" ",EX$;" ";CO$;" ";BA$:[152]5
  402. 3010 [130]
  403. 3020 [129]I[178]1[164]3:[152]5:[130]
  404. 3030 [152]5,"(null)SE THE REST OF THIS FORM TO RECORD ENTRIES TO THESE ACCOUNTS"
  405. 3040 [152]5,"UNTIL NEXT UPDATE IS MADE.  (null)HANK YOU"
  406. 3050 [129]I[178]1[164]66[171](19[170]2[172]NA):[152]5:[130]
  407. 3060 [160]5:[137]1310
  408. 3070 [141]2140:[153]"        (null)LACE DISK INTO DRIVE 0.":[141]60000
  409. 3080 [159]1,8,5,"0:"[170]DN$[170]",S,W":[141]7000:
  410. 3081 [139]E1[179][177]63[167]3090
  411. 3082 [153]"LOAD (null)HAT FILE EXISTS ALREADY. STR$O YOU WISH"
  412. 3083 [153]" WRITE OVER IT? ";:UL[178]1:US$[178]"YN":[141]35:[139]UR$[178]"N"[167]1310
  413. 3084 [152]15,"S0:"[170]DN$:[160]1:[137]3080
  414. 3090 [152]1,DN$:[152]1,NA:[141]7000
  415. 3100 [129]I[178]1[164]NA:[152]1,AC(I):[152]1,AC$(I):[152]1,BU(I):[152]1,EX(I)
  416. 3110 [152]1,CO(I):[152]1,BA(I)
  417. 3130 [130]:[160]1:[137]1310
  418. 3140 [141]2140:[153]" (null)EQUEST TO INITIALIZE SYSTEM.
  419. 3150 PRINT" [208]LEASE CONFIRM (Y/N)? ";:US$="YN":UL=1:GOSUB35:R$=UR$
  420. 3155 IFR$<>"Y"THEN1310
  421. 3160 GOTO1120
  422. 7000 REM
  423. 7010 INPUT#15,E1,E2$,E3,E4:IFE1=0ORE1=63THENRETURN
  424. 7020 PRINT"[147] [196][201][211][203][160][197][210][210][207][210][146]:";E1;E2$;E3;E4
  425. 7030 FORX=1TO2000:NEXT:RUN
  426. 60000 PRINT"       [208]RESS <[210][197][212][213][210][206]> WHEN READY."
  427. 60010 GETA$:IFA$<>CHR$(13)THEN60010
  428. 60020 RETURN
  429. 61000 PRINTLEFT$(UD$,24);"                                    ":PRINT"[145][145][145][145]"
  430. 61010 RETURN
  431. 61100 POKE53280,0:POKE53281,0:PRINTCHR$(147)
  432. 61110 PRINTTAB(14)"[154]LOADING...."
  433. 61120 LOAD"TARGET6",8:RUN:END
  434.